调教 漫画 将DeepSeek接入word和WPS经过和完好意思代码（含逐行代码解说）

起先后果图玩偶姐姐 麻豆

图片调教 漫画调教 漫画

调用DeepSeek后经过贯通的狂妄

完好意思vba代码（复制代码粘贴即可）Function ChatToDeepSeek(chatText As String) As String 'API接口地址 Dim api_url As String 'DeepSeek官方肯求的API Key Dim api_key As String '发送给DeepSeek的实质，jason体式的文本 Dim SendContent As String 'Http请求对象 Dim HttpRequest As Object '请求复返的异常码，http请求闲居反映时复返200 Dim status_code As Integer 'http请求复返实质 Dim response As String '建设DeepSeek-V3 API接口地址 api_url = 'https://api.deepseek.com/chat/completions' '建设DeepSeek官方肯求的API Key（在的epseek官方敞开平台注册后创建，防范：只在初次创建时自动复制后续无法复制，是以创建时铭记保存） api_key = 'xxxxxx，请替换为你在DeepSeek官方肯求的API Key' '使用jason体式封装请求实质，主要包括使用的模子（deepseek-chat）和发送的给DeepSeek的文本实质。 通过指定 model='deepseek-chat' 即可调用 DeepSeek-V3。 SendContent = '{''model'': ''deepseek-chat''， ''messages'': [{''role'':''user''， ''content'':''' & chatText & '''}]， ''stream'': false}' '实例化http请求对象，并调用接口取得复返数据 Set HttpRequest = CreateObject('MSXML2.XMLHTTP') With HttpRequest .Open 'POST'， api_url， False .setRequestHeader 'Content-Type'， 'application/json' .setRequestHeader 'Authorization'， 'Bearer ' & api_key .send (SendContent) status_code = .Status response = .responseText End With ' 弹出窗口泄漏 API 反映（调试用） ' MsgBox 'API请求复返实质: ' & response， vbInformation， '调式信息' ' 请求闲居复返 If status_code = 200 Then ChatToDeepSeek = response ' API key 异常，认证失败 惩办活动：请检查您的 API key 是否正确，如莫得 API key，请先 创建 API key ElseIf status_code = 401 Then ChatToDeepSeek = 'Error: API key 异常，认证失败' & ' - 反映实质：' & response ' 账号余额不及，惩办活动：请阐述账户余额，并赶赴 充值 页面进行充值 ElseIf status_code = 402 Then ChatToDeepSeek = 'Error: 账号余额不及' & ' - 反映实质：' & response ' 作事器里面故障 惩办活动：请恭候后重试 ElseIf status_code = 500 Then ChatToDeepSeek = 'Error: 作事器里面故障，请稍后重试' & ' - 反映实质：' & response '作事器广博 惩办活动：请恭候后重试 ElseIf status_code = 503 Then ChatToDeepSeek = 'Error: 作事器广博，请稍后重试' & ' - 反映实质：' & response ' 其他未知异常 Else ChatToDeepSeek = 'Error: ' & status_code & ' - ' & response End If Set HttpRequest = Nothing End FunctionSub DeepSeekV3() ' 聊天实质，兼职学生即文档中选顶用于和deepseek聊天的实质 Dim chatText As String ' 对话复返的实质 Dim responseText As String '正则抒发式对象 Dim regex As Object '正在抒发式匹配狂妄 Dim matches As Object '通过正则抒发式贯通后得到的deepseek回话对话实质 Dim content As String '选中的实质 Dim SelectionText As Object ' 保存文档中选中提交对话文本实质，即提倡的问题 Set SelectionText = Selection.Range.Duplicate ' 替换一些毋庸要的空格、记号等 chatText = Replace(Replace(Replace(Replace(Replace(Selection.Text， '\'， '\\')， vbCrLf， '')， vbCr， '')， vbLf， '')， Chr(34)， '\''') responseText = ChatToDeepSeek(chatText) ' 接口调用莫得异常但莫得实质复返或复返空行 If Trim(responseText) = '' Then MsgBox '接口莫得复返数据或复返空行'， vbCritical '调用API接口后DeepSeek闲居复返聊天实质 ElseIf Left(responseText， 5) <> 'Error' Then ' 创建正则抒发式对象 Set regex = CreateObject('VBScript.RegExp') '贯通对话复返实质 With regex .Global = True .MultiLine = True .IgnoreCase = False .Pattern = '''content'':''(.*?)''' End With Set matches = regex.Execute(responseText) If matches.Count > 0 Then content = matches(0).SubMatches(0) content = Replace(Replace(content， ''''， Chr(34))， ''''， Chr(34)) content = Replace(Replace(content， '\n'， Chr(13))， '**'， '') ' 将输入光标移到选汉文本的末尾 Selection.Collapse Direction:=wdCollapseEnd ' 在选中实质背面插入一个新段落 Selection.TypeParagraph ' 建设新段落的实质为贯通对话复返的实质 Selection.TypeText Text:=content ' 插入一个换行符 Selection.InsertBreak Type:=wdLineBreak ' 重新选中提交的对话实质 SelectionText.Select Else MsgBox '复返实质贯通失败，请检查正则抒发式是否正确'， vbExclamation End If Else ' 泄漏调用接口复返的杰出信息 MsgBox response， vbCritical End If End Subword成立经过（WPS类同）

（1）新建一个Word文档，点击 文献 -> 选项 -> 自界说功能区，勾选“开拓者器具”。

图片

（2）点击 信任中心 -> 信任中心建设调教 漫画，遴荐“启用通盘宏”与“信任对VBA......”。

图片

（3）接下来点击细目，咱们发现选项卡中出现了“开拓者器具”，点击开拓者器具，点击Visual Basic，在新窗口中的插入，遴荐插入模块，把接入deepseek的VBA代码（参见我发布的著述）复制到剪辑区中，替换官方肯求的API key。完成后，可径直关闭窗口。

图片

（4）点击 文献 -> 选项 -> 自界说功能区，右键开拓器具，点击添加新组定名为DeepSeek。遴荐DeepSeek（自界说），遴荐左侧的高唱为“宏”，找到咱们添加的DeepSeekV3，选中后点击添加并重定名为“生成”。

图片

完成后就在开拓器具那边看到了DeepSeek的生成操作，现时就不错和DeepSeek聊天了。

（5）淌若你思要通盘文档王人大约用到这个功能，那么请保存启用宏的word模板，保存旅途:C:\Users\用户名\AppData\Roaming\Microsoft\Word\STARTUP

图片

本站仅提供存储作事，通盘实质均由用户发布，如发现存害或侵权实质，请点击举报。